if card field "F1" >= 0.00 and card field "F1" <=0.016 then
put "95%" into line 1 of card field "F4"
put "90% "into line 1 of card field "F5"
end if
if card field "F1" >=0.016 and card field "F1" <=0.15 then
put "90%" into line 1 of card field "F4"
put "70%" into line 1 of card field "F5"
end if
if card field "F1" >=0.15 and card field "F1" <=0.46 then
put "70%" into line 1 of card field "F4"
put "50%" into line 1 of card field "F5"
end if
if card field "F1" >=0.46 and card field "F1" <=1.07 then
put "50%" into line 1 of card field "F4"
put "30%" into line 1 of card field "F5"
end if
if card field "F1" >=1.07 and card field "F1" <=1.64 then
put "30%" into line 1 of card field "F4"
put "20%" into line 1 of card field "F5"
end if
if card field "F1" >= 1.64 and card field "F1" <=2.71 then
put "20%" into line 1 of card field "F4"
put "10%" into line 1 of card field "F5"
end if
if card field "F1" >=2.71 and card field "F1" <= 3.84 then
put "10%" into line 1 of card field "F4"
put "5%" into line 1 of card field "F5"
end if
if card field "F1" >=3.84 and card field "F1" <= 6.64 then
put "5%" into line 1 of card field "F4"
put "1%" into line 1 of card field "F5"
end if
if card field "F1" >=6.65 then
put "REJECT" into line 1 of card field F4
put "REVISE" into line 1 of card field F5
end if
end mouseUp
-- part 3 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=365 top=102 right=125 bottom=406
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 2
----- HyperTalk script -----
on mouseUp
if card field "F1" >=0.001 and card field "F1" <=0.21 then
put "95%" into line 1 of card field "F4"
put "90%" into line 1 of card field "F5"
end if
if card field "F1" >=0.21 and card field "F1" <=0.71 then
put "90%" into line 1 of card field "F4"
put "70%" into line 1 of card field "F5"
end if
if card field "F1" >=0.71 and card field "F1"<=1.39 then
put "70%" into line 1 of card field "F4"
put "50%" into line 1 of card field "F5"
end if
if card field "F1" >=1.39 and card field "F1" <=2.41 then
put "50%" into line 1 of card field "F4"
put "30%" into line 1 of card field "F5"
end if
if card field "F1" >=2.41 and card field "F1" <=3.22 then
put "30%" into line 1 of card field "F4"
put "20%" into line 1 of card field "F5"
end if
if card field "F1" >=3.22 and card field "F1" <=4.61 then
put "20%" into line 1 of card field "F4"
put "10%" into line 1 of card field "F5"
end if
if card field "F1" >=4.61 and card field "F1" <=5.99 then
put "10%" into line 1 of card field "F4"
put "5%" into line 1 of card field "F5"
end if
if card field "F1" >=5.99 and card field "F1" <=9.21 then
put "5%" into line 1 of card field "F4"
put "1%" into line 1 of card field "F5"
end if
if card field "F1" >=9.22 then
put "REVISE" into line 1 of card field "F4"
put "REJECT" into line 1 of card field "F5"
end if
end mouseUp
-- part 4 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=450 top=102 right=125 bottom=491
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 3
----- HyperTalk script -----
on mouseUp
if card field "F1" >=.01 and card field "F1" <=.58 then
put "95%" into line 1 of card field "F4"
put "90%" into line 1 of card field "F5"
end if
if card field "F1" >=.58 and card field "F1" <=1.42 then
put "90%" into line 1 of card field "F4"
put "70%" into line 1 of card field "F5"
end if
if card field "F1" >=1.42 and card field "F1" <=2.37 then
put "70%" into line 1 of card field "F4"
put "50%" into line 1 of card field "F5"
end if
if card field "F1" >= 2.37 and card field "F1" <=3.67 then
put "50%" into line 1 of card field "F4"
put "30%" into line 1 of card field "F5"
end if
if card field "F1" >= 3.67 and card field "F1" <=4.64 then
put "30%" into line 1 of card field "F4"
put "20%" into line 1 of card field "F5"
end if
if card field "F1" >=4.64 and card field "F1" <=6.25 then
put "20%" into line 1 of card field "F4"
put "10%" into line 1 of card field "F5"
end if
if card field "F1" >=6.25 and card field "F1" <=7.82 then
put "10%" into line 1 of card field "F4"
put "5%" into line 1 of card field "F5"
end if
if card field "F1" >= 7.82 and card field "F1" <=11.35 then
put "5%" into line 1 of card field "F4"
put "1%" into line 1 of card field "F5"
end if
if card field "F1" >=11.36 then
put "REVISE" into line 1 of card field "F4"
put "REJECT" into line 1 of card field "F5"
end if
end mouseUp
-- part 5 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=407 top=193 right=216 bottom=473
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 128
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: F4
-- part 6 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=295 top=192 right=214 bottom=357
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 128
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: F5
-- part 7 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=164 top=315 right=337 bottom=264
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SUB HEADINGS
----- HyperTalk script -----
on mouseUp
go to card id 36585
end mouseUp
-- part 8 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=412 top=286 right=308 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: NEW RATIO
----- HyperTalk script -----
on mouseUp
go to card id 25732
end mouseUp
-- part 9 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=307 top=316 right=338 bottom=407
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: POISSON
----- HyperTalk script -----
on mouseUp
go to card id 70308
end mouseUp
-- part 10 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=415 top=314 right=338 bottom=511
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: HOMOGENIETY
----- HyperTalk script -----
on mouseUp
global sumchi
global pot
global bagI
global bagII
global bagV
global bagVI
add 1 to pot
go to card id 99981
if pot = 1 then
put the value of sumchi into card field f1
end if
if pot = 2 then
put the value of sumchi into card field f2
end if
if pot = 3 then
put the value of sumchi into card field f3
end if
if pot = 4 then
put the value of sumchi into card field f4
end if
add the value of bagI to card field obsI
add the value of bagV to card field expI
add the value of bagII to card field obsII
add the value of bagVI to card field expII
end mouseUp
-- part contents for background part 1
----- text -----
CHI SQUARE
-- part contents for background part 2
----- text -----
The individual chi square values for all of your observations have been summed and appear in the window at the top on the right. Select the number of degrees of freedom you are using in this analysis (remember they are one less than the number of data classes with which you are working). Therefore, if you have three classes of data, select button #2. Click on the appropriate button and the probability limits between which the chances of such a data spread occurring will appear in bold numbers. If the probability of such a spread occurring lies above 5%, the hypothesis can be accepted. If it lies below 5%, it is either rejected or additional data is gathered and the spread analyzed a second time. If you desire to change your hypothesis, click on the NEW RATIO button. If you wish to gather more data, you can reaccess your program through the SUB HEADINGS. If you wish to run a homogeniety chi-square, click on the HOMOGENIETY button.
